home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2002-10-24 | 1.7 KB | 78 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="6"
- "COUNT"="4"
- "UIPATH"="Program Options\Built in Windows Apps\Notepad"
- "NAME"="Notepad Options"
- "VERSION"="1.40"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Enable word-wrap by default"
- "TEXT 2"="Set default font style: Strike-Through"
- "TEXT 3"="Set default font style: Underline"
- "TEXT 4"="Remember last used Printer Page Setup"
- "DESCRIPTION 1"="Some options for Notepad."
- "AUTHOR"="SΘbastien MAURICE / Xteq Systems"
- "COPYRIGHT"="Copyright ⌐ SΘbastien MAURICE / Xteq Systems - All Rights Reserved"
- "COMMENT 1"="... Used with permission "
-
-
- sV1="HKCU\Software\Microsoft\Notepad\fWrap"
- sV2="HKCU\Software\Microsoft\Notepad\lfStrikeOut"
- sV3="HKCU\Software\Microsoft\Notepad\lfUnderline"
- sV4="HKCU\Software\Microsoft\Notepad\fSavePageSettings"
-
- Sub Plugin_Initialize
- i=RegReadValue(sV1)
- if i=1 then SetUIElement 1,true
-
- i=RegReadValue(sV2)
- if i=1 then SetUIElement 2,true
-
- i=RegReadValue(sV3)
- if i=1 then SetUIElement 3,true
-
- i=RegReadValue(sV4)
- if i=1 then SetUIElement 4,true
-
-
-
- End Sub
-
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- if GetUIElement(1)=true then
- Call RegWriteValue(sV1,"1",2)
- else
- Call RegWriteValue(sV1,"0",2)
- end if
-
- if GetUIElement(2)=true then
- Call RegWriteValue(sV2,"1",2)
- else
- Call RegWriteValue(sV2,"0",2)
- end if
-
- if GetUIElement(3)=true then
- Call RegWriteValue(sV3,"1",2)
- else
- Call RegWriteValue(sV3,"0",2)
- end if
-
- if GetUIElement(4)=true then
- Call RegWriteValue(sV4,"1",2)
- else
- Call RegWriteValue(sV4,"0",2)
- end if
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-